# print ('my first R script')
#load the file raw stats
#ignoreing header data
perf_Data <-read.table('raw_stats.dat', TRUE)

plot(100-perf_Data[,'X.idle'], type = 'b', xlab='Time in seconds',
ylab = '% utilization')

u_i <- mean((100-perf_Data[,X.idle'])




